/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / PrintXobj Folder / PrintXobj.MM / PrintXobj.MM.rsrc / STXT_1031

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 0c 00 00 0a 81 | 00 00 00 16 6f 6e 20 6d |........|....on m|
|00000010| 6f 75 73 65 55 70 0d 20 | 20 0d 20 20 2d 2d 20 54 |ouseUp. | .  -- T|
|00000020| 68 65 20 63 6f 6d 70 6c | 65 74 65 20 73 61 6d 70 |he compl|ete samp|
|00000030| 6c 01 65 20 50 72 69 6e | 74 58 6f 62 6a 20 73 63 |l.e Prin|tXobj sc|
|00000040| 72 69 70 74 20 20 0d 20 | 20 2d 2d 20 62 79 20 56 |ript  . | -- by V|
|00000050| 61 68 8e 20 4b 2e 2c 20 | 49 6e 74 8e 67 72 61 74 |ah. K., |Int.grat|
|00000060| 69 6f 6e 20 49 6e 63 2e | 20 28 35 31 34 29 20 38 |ion Inc.| (514) 8|
|00000070| 37 31 2d 32 38 37 31 0d | 20 20 0d 20 20 2d 2d 20 |71-2871.|  .  -- |
|00000080| 54 68 69 73 20 73 61 6d | 70 6c 65 20 73 63 72 69 |This sam|ple scri|
|00000090| 70 74 20 64 65 73 63 72 | 69 62 65 73 20 61 6c 6c |pt descr|ibes all|
|000000a0| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 61 6c 69 | the fun|ctionali|
|000000b0| 74 69 65 73 20 6f 66 20 | 50 72 69 6e 74 58 6f 62 |ties of |PrintXob|
|000000c0| 6a 2e 0d 20 20 2d 2d 20 | 54 68 69 73 20 69 73 20 |j..  -- |This is |
|000000d0| 61 6e 20 22 61 6c 6c 20 | 64 72 65 73 73 65 64 22 |an "all |dressed"|
|000000e0| 20 76 65 72 73 69 6f 6e | 2c 20 65 76 65 6e 20 74 | version|, even t|
|000000f0| 68 6f 75 67 68 20 6d 6f | 73 74 20 6f 66 20 74 68 |hough mo|st of th|
|00000100| 65 20 74 69 6d 65 2c 0d | 20 20 2d 2d 20 79 6f 75 |e time,.|  -- you|
|00000110| 20 77 69 6c 6c 20 6e 6f | 74 20 6e 65 65 64 20 74 | will no|t need t|
|00000120| 6f 20 73 65 74 20 61 6c | 6c 20 74 68 65 20 61 74 |o set al|l the at|
|00000130| 74 72 69 62 75 74 65 73 | 20 62 79 20 79 6f 75 72 |tributes| by your|
|00000140| 73 65 6c 66 20 28 50 72 | 69 6e 74 58 6f 62 6a 0d |self (Pr|intXobj.|
|00000150| 20 20 2d 2d 20 63 6f 6e | 74 61 69 6e 73 20 76 65 |  -- con|tains ve|
|00000160| 72 79 20 72 65 61 73 6f | 6e 61 62 6c 65 20 64 65 |ry reaso|nable de|
|00000170| 66 61 75 6c 74 20 76 61 | 6c 75 65 73 29 0d 20 20 |fault va|lues).  |
|00000180| 0d 20 20 2d 2d 20 49 6e | 20 61 64 64 69 74 69 6f |.  -- In| additio|
|00000190| 6e 20 74 6f 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |n to the| followi|
|000001a0| 6e 67 73 2c 20 50 72 69 | 6e 74 58 6f 62 6a 20 72 |ngs, Pri|ntXobj r|
|000001b0| 65 61 63 74 73 20 74 6f | 20 74 68 65 20 6d 52 65 |eacts to| the mRe|
|000001c0| 70 6f 72 74 0d 20 20 2d | 2d 20 6d 65 74 68 6f 64 |port.  -|- method|
|000001d0| 2e 20 20 54 79 70 69 6e | 67 20 22 70 75 74 20 70 |.  Typin|g "put p|
|000001e0| 4f 62 6a 28 6d 52 65 70 | 6f 72 74 29 22 20 69 6e |Obj(mRep|ort)" in|
|000001f0| 20 74 68 65 20 6d 65 73 | 73 61 67 65 20 62 6f 78 | the mes|sage box|
|00000200| 20 6c 69 73 74 73 0d 20 | 20 2d 2d 20 74 68 65 20 | lists. | -- the |
|00000210| 63 75 72 72 65 6e 74 20 | 61 74 74 72 69 62 75 74 |current |attribut|
|00000220| 65 73 20 6f 66 20 74 68 | 65 20 70 4f 62 6a 20 28 |es of th|e pObj (|
|00000230| 66 6f 6e 74 20 6e 75 6d | 62 65 72 2c 20 66 6f 6e |font num|ber, fon|
|00000240| 74 20 73 69 7a 65 2c 20 | 2e 2e 2e 29 0d 20 20 0d |t size, |...).  .|
|00000250| 20 20 2d 2d 20 41 73 20 | 66 6f 72 20 61 6e 79 20 |  -- As |for any |
|00000260| 58 6f 62 6a 65 63 74 2c | 20 79 6f 75 20 63 61 6e |Xobject,| you can|
|00000270| 20 61 6c 73 6f 20 74 79 | 70 65 20 22 70 72 69 6e | also ty|pe "prin|
|00000280| 74 58 6f 62 6a 28 6d 44 | 65 73 63 72 69 62 65 29 |tXobj(mD|escribe)|
|00000290| 22 20 74 6f 20 0d 20 20 | 2d 2d 20 67 65 74 20 61 |" to .  |-- get a|
|000002a0| 20 6c 69 73 74 20 6f 66 | 20 61 6c 6c 20 74 68 65 | list of| all the|
|000002b0| 20 6d 65 74 68 6f 64 73 | 20 73 75 70 70 6f 72 74 | methods| support|
|000002c0| 65 64 20 62 79 20 50 72 | 69 6e 74 58 6f 62 6a 2e |ed by Pr|intXobj.|
|000002d0| 0d 20 20 0d 20 20 2d 2d | 20 66 69 72 73 74 2c 20 |.  .  --| first, |
|000002e0| 6d 61 6b 65 20 6c 69 62 | 72 61 72 79 20 61 63 63 |make lib|rary acc|
|000002f0| 65 73 73 69 62 6c 65 20 | 74 6f 20 79 6f 75 72 20 |essible |to your |
|00000300| 6d 6f 76 69 65 0d 20 20 | 2d 2d 20 74 68 69 73 20 |movie.  |-- this |
|00000310| 69 73 20 75 73 65 6c 65 | 73 73 20 69 66 20 74 68 |is usele|ss if th|
|00000320| 65 20 58 4f 42 4a 20 72 | 65 73 6f 75 72 63 65 20 |e XOBJ r|esource |
|00000330| 69 73 20 69 6e 73 74 61 | 6c 6c 65 64 20 69 6e 20 |is insta|lled in |
|00000340| 79 6f 75 72 20 6d 6f 76 | 69 65 0d 20 20 4f 70 65 |your mov|ie.  Ope|
|00000350| 6e 58 6c 69 62 20 22 50 | 72 69 6e 74 58 6f 62 6a |nXlib "P|rintXobj|
|00000360| 22 0d 20 20 0d 20 20 2d | 2d 20 63 72 65 61 74 65 |".  .  -|- create|
|00000370| 20 61 6e 20 69 6e 73 74 | 61 6e 63 65 20 6f 66 20 | an inst|ance of |
|00000380| 74 68 65 20 58 6f 62 6a | 65 63 74 2e 20 20 54 68 |the Xobj|ect.  Th|
|00000390| 69 73 20 69 73 20 74 68 | 65 20 6d 61 6e 64 61 74 |is is th|e mandat|
|000003a0| 6f 72 79 20 66 69 72 73 | 74 0d 20 20 2d 2d 20 77 |ory firs|t.  -- w|
|000003b0| 68 65 6e 20 75 73 69 6e | 67 20 58 6f 62 6a 65 63 |hen usin|g Xobjec|
|000003c0| 74 73 0d 20 20 70 75 74 | 20 50 72 69 6e 74 58 6f |ts.  put| PrintXo|
|000003d0| 62 6a 28 6d 4e 65 77 29 | 20 69 6e 74 6f 20 70 4f |bj(mNew)| into pO|
|000003e0| 62 6a 0d 20 20 0d 20 20 | 2d 2d 20 74 65 6c 6c 20 |bj.  .  |-- tell |
|000003f0| 74 68 65 20 58 6f 62 6a | 65 63 74 20 77 68 69 63 |the Xobj|ect whic|
|00000400| 68 20 74 65 78 74 20 79 | 6f 75 20 77 69 73 68 20 |h text y|ou wish |
|00000410| 74 6f 20 70 72 69 6e 74 | 0d 20 20 70 4f 62 6a 28 |to print|.  pObj(|
|00000420| 6d 53 65 74 54 65 78 74 | 2c 20 66 69 65 6c 64 20 |mSetText|, field |
|00000430| 41 32 32 29 0d 20 20 0d | 20 20 2d 2d 20 69 66 20 |A22).  .|  -- if |
|00000440| 79 6f 75 20 77 69 73 68 | 20 74 6f 20 70 72 69 6e |you wish| to prin|
|00000450| 74 20 77 69 74 68 20 74 | 68 65 20 64 65 66 61 75 |t with t|he defau|
|00000460| 6c 74 20 61 74 74 72 69 | 62 75 74 65 73 20 28 66 |lt attri|butes (f|
|00000470| 6f 6e 74 2c 20 66 6f 6e | 74 20 73 69 7a 65 2e 2e |ont, fon|t size..|
|00000480| 2e 29 0d 20 20 2d 2d 20 | 79 6f 75 20 63 61 6e 20 |.).  -- |you can |
|00000490| 69 6d 6d 65 64 69 61 74 | 6c 79 20 69 73 73 75 65 |immediat|ly issue|
|000004a0| 20 74 68 65 20 70 4f 62 | 6a 28 6d 50 72 69 6e 74 | the pOb|j(mPrint|
|000004b0| 29 20 63 6f 6d 6d 61 6e | 64 2e 0d 20 20 2d 2d 20 |) comman|d..  -- |
|000004c0| 4f 74 68 65 72 77 69 73 | 65 2c 20 67 6f 20 74 68 |Otherwis|e, go th|
|000004d0| 72 6f 75 67 68 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |rough th|e follow|
|000004e0| 69 6e 67 20 74 75 6e 65 | 2d 75 70 0d 20 20 0d 20 |ing tune|-up.  . |
|000004f0| 20 2d 2d 20 73 65 74 20 | 66 6f 6e 74 2e 20 20 4f | -- set |font.  O|
|00000500| 74 68 65 72 77 69 73 65 | 2c 20 64 65 66 61 75 6c |therwise|, defaul|
|00000510| 74 20 66 6f 6e 74 20 69 | 73 20 47 65 6e 65 76 61 |t font i|s Geneva|
|00000520| 2e 0d 20 20 70 4f 62 6a | 28 6d 53 65 74 42 6f 64 |..  pObj|(mSetBod|
|00000530| 79 46 6f 6e 74 2c 20 22 | 54 69 6d 65 73 22 29 0d |yFont, "|Times").|
|00000540| 20 20 0d 20 20 2d 2d 20 | 73 65 74 20 66 6f 6e 74 |  .  -- |set font|
|00000550| 20 73 69 7a 65 2e 20 20 | 4f 74 68 65 72 77 69 73 | size.  |Otherwis|
|00000560| 65 2c 20 64 65 66 61 75 | 6c 74 20 73 69 7a 65 20 |e, defau|lt size |
|00000570| 69 73 20 31 32 2e 0d 20 | 20 70 4f 62 6a 28 6d 53 |is 12.. | pObj(mS|
|00000580| 65 74 42 6f 64 79 53 69 | 7a 65 2c 20 31 38 29 0d |etBodySi|ze, 18).|
|00000590| 20 20 0d 20 20 2d 2d 20 | 73 65 74 20 66 6f 6f 74 |  .  -- |set foot|
|000005a0| 65 72 20 74 65 78 74 2e | 20 44 65 66 61 75 6c 74 |er text.| Default|
|000005b0| 20 73 74 61 74 65 20 69 | 73 20 6e 6f 20 66 6f 6f | state i|s no foo|
|000005c0| 74 65 72 0d 20 20 70 4f | 62 6a 28 6d 53 65 74 46 |ter.  pO|bj(mSetF|
|000005d0| 6f 6f 74 65 72 2c 20 22 | 54 68 69 73 20 69 73 20 |ooter, "|This is |
|000005e0| 61 20 6e 69 63 65 20 72 | 69 67 68 74 20 6a 75 73 |a nice r|ight jus|
|000005f0| 74 69 66 69 65 64 20 66 | 6f 6f 74 65 72 22 29 0d |tified f|ooter").|
|00000600| 20 20 0d 20 20 2d 2d 20 | 73 65 74 20 66 6f 6f 74 |  .  -- |set foot|
|00000610| 65 72 20 66 6f 6e 74 2e | 20 20 44 65 66 61 75 6c |er font.|  Defaul|
|00000620| 74 20 66 6f 6e 74 20 69 | 73 20 63 6f 75 72 69 65 |t font i|s courie|
|00000630| 72 2e 0d 20 20 70 4f 62 | 6a 28 6d 53 65 74 46 6f |r..  pOb|j(mSetFo|
|00000640| 6f 74 65 72 46 6f 6e 74 | 2c 20 22 48 65 6c 76 65 |oterFont|, "Helve|
|00000650| 74 69 63 61 22 29 0d 20 | 20 0d 20 20 2d 2d 20 73 |tica"). | .  -- s|
|00000660| 65 74 20 66 6f 6f 74 65 | 72 20 73 69 7a 65 2e 20 |et foote|r size. |
|00000670| 20 44 65 66 61 75 6c 74 | 20 73 69 7a 65 20 69 73 | Default| size is|
|00000680| 20 39 2e 0d 20 20 70 4f | 62 6a 28 6d 53 65 74 46 | 9..  pO|bj(mSetF|
|00000690| 6f 6f 74 65 72 53 69 7a | 65 2c 20 31 34 29 0d 20 |ooterSiz|e, 14). |
|000006a0| 20 0d 20 20 2d 2d 20 73 | 65 74 20 6c 65 66 74 20 | .  -- s|et left |
|000006b0| 6d 61 72 67 69 6e 20 69 | 6e 20 6e 75 6d 62 65 72 |margin i|n number|
|000006c0| 20 6f 66 20 70 6f 69 6e | 74 73 20 28 31 20 70 6f | of poin|ts (1 po|
|000006d0| 69 6e 74 20 3d 20 31 2f | 37 32 20 69 6e 63 68 29 |int = 1/|72 inch)|
|000006e0| 0d 20 20 2d 2d 20 44 65 | 66 61 75 6c 74 20 6c 65 |.  -- De|fault le|
|000006f0| 66 74 20 6d 61 72 67 69 | 6e 20 69 73 20 32 35 20 |ft margi|n is 25 |
|00000700| 70 6f 69 6e 74 73 2e 0d | 20 20 70 4f 62 6a 28 6d |points..|  pObj(m|
|00000710| 53 65 74 4c 65 66 74 4d | 61 72 67 69 6e 2c 20 33 |SetLeftM|argin, 3|
|00000720| 30 29 0d 20 20 0d 20 20 | 2d 2d 20 73 65 74 20 74 |0).  .  |-- set t|
|00000730| 6f 70 20 6d 61 72 67 69 | 6e 20 69 6e 20 6e 75 6d |op margi|n in num|
|00000740| 62 65 72 20 6f 66 20 70 | 6f 69 6e 74 73 2e 20 44 |ber of p|oints. D|
|00000750| 65 66 61 75 6c 74 20 74 | 6f 70 20 6d 61 72 67 69 |efault t|op margi|
|00000760| 6e 20 69 73 20 33 30 20 | 70 6f 69 6e 74 73 2e 0d |n is 30 |points..|
|00000770| 20 20 70 4f 62 6a 28 6d | 53 65 74 54 6f 70 4d 61 |  pObj(m|SetTopMa|
|00000780| 72 67 69 6e 2c 20 34 30 | 29 0d 20 20 0d 20 20 2d |rgin, 40|).  .  -|
|00000790| 2d 20 73 65 74 20 72 69 | 67 68 74 20 6d 61 72 67 |- set ri|ght marg|
|000007a0| 69 6e 20 69 6e 20 6e 75 | 6d 62 65 72 20 6f 66 20 |in in nu|mber of |
|000007b0| 70 6f 69 6e 74 73 2e 20 | 44 65 66 61 75 6c 74 20 |points. |Default |
|000007c0| 72 69 67 68 74 20 6d 61 | 72 67 69 6e 20 69 73 20 |right ma|rgin is |
|000007d0| 35 32 35 20 70 6f 69 6e | 74 73 2e 0d 20 20 70 4f |525 poin|ts..  pO|
|000007e0| 62 6a 28 6d 53 65 74 52 | 69 67 68 74 4d 61 72 67 |bj(mSetR|ightMarg|
|000007f0| 69 6e 2c 20 35 31 35 29 | 0d 20 20 0d 20 20 2d 2d |in, 515)|.  .  --|
|00000800| 20 73 65 74 20 62 6f 74 | 74 6f 6d 20 6d 61 72 67 | set bot|tom marg|
|00000810| 69 6e 20 69 6e 20 6e 75 | 6d 62 65 72 20 6f 66 20 |in in nu|mber of |
|00000820| 70 6f 69 6e 74 73 2e 20 | 44 65 66 61 75 6c 74 20 |points. |Default |
|00000830| 72 69 67 68 74 20 6d 61 | 72 67 69 6e 20 69 73 20 |right ma|rgin is |
|00000840| 37 30 30 20 70 6f 69 6e | 74 73 2e 0d 20 20 70 4f |700 poin|ts..  pO|
|00000850| 62 6a 28 6d 53 65 74 42 | 6f 74 74 6f 6d 4d 61 72 |bj(mSetB|ottomMar|
|00000860| 67 69 6e 2c 20 36 39 30 | 29 0d 20 20 0d 20 20 0d |gin, 690|).  .  .|
|00000870| 20 20 2d 2d 20 67 6f 20 | 61 68 65 61 64 20 61 6e |  -- go |ahead an|
|00000880| 64 20 70 72 69 6e 74 2e | 20 41 73 6b 20 6e 75 6d |d print.| Ask num|
|00000890| 62 65 72 20 6f 66 20 63 | 6f 70 69 65 73 2c 20 65 |ber of c|opies, e|
|000008a0| 74 63 2e 20 0d 20 20 2d | 2d 20 72 65 74 75 72 6e |tc. .  -|- return|
|000008b0| 20 61 6e 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 | an erro|r messag|
|000008c0| 65 20 69 6e 20 63 61 73 | 65 20 6f 66 20 66 61 69 |e in cas|e of fai|
|000008d0| 6c 75 72 65 2e 20 20 52 | 65 74 75 72 6e 20 61 6e |lure.  R|eturn an|
|000008e0| 20 65 6d 70 74 79 20 73 | 74 72 69 6e 67 20 6f 74 | empty s|tring ot|
|000008f0| 68 65 72 77 69 73 65 2e | 20 0d 20 20 70 75 74 20 |herwise.| .  put |
|00000900| 70 4f 62 6a 28 6d 50 72 | 69 6e 74 29 20 69 6e 74 |pObj(mPr|int) int|
|00000910| 6f 20 45 72 72 4d 65 73 | 73 61 67 65 0d 20 20 0d |o ErrMes|sage.  .|
|00000920| 20 20 69 66 20 28 45 72 | 72 4d 65 73 73 61 67 65 |  if (Er|rMessage|
|00000930| 20 3c 3e 20 22 22 29 20 | 74 68 65 6e 20 41 6c 65 | <> "") |then Ale|
|00000940| 72 74 28 45 72 72 4d 65 | 73 73 61 67 65 29 20 20 |rt(ErrMe|ssage)  |
|00000950| 0d 20 20 0d 20 20 2d 2d | 20 65 76 65 72 79 20 63 |.  .  --| every c|
|00000960| 61 6c 6c 20 74 6f 20 58 | 6f 62 6a 28 6d 4e 65 77 |all to X|obj(mNew|
|00000970| 29 20 6d 75 73 74 20 62 | 65 20 62 61 6c 61 6e 63 |) must b|e balanc|
|00000980| 65 64 20 77 69 74 68 20 | 61 20 63 61 6c 6c 20 74 |ed with |a call t|
|00000990| 6f 20 58 6f 62 6a 28 6d | 44 69 73 70 6f 73 65 29 |o Xobj(m|Dispose)|
|000009a0| 0d 20 20 70 75 74 20 70 | 4f 62 6a 28 6d 44 69 73 |.  put p|Obj(mDis|
|000009b0| 70 6f 73 65 29 0d 20 20 | 0d 20 20 2d 2d 20 65 76 |pose).  |.  -- ev|
|000009c0| 65 72 79 20 63 61 6c 6c | 20 74 6f 20 6f 70 65 6e |ery call| to open|
|000009d0| 58 6c 69 62 20 6d 75 73 | 74 20 62 65 20 62 61 6c |Xlib mus|t be bal|
|000009e0| 61 6e 63 65 64 20 77 69 | 74 68 20 61 20 63 61 6c |anced wi|th a cal|
|000009f0| 6c 20 74 6f 20 63 6c 6f | 73 65 58 6c 69 62 2e 0d |l to clo|seXlib..|
|00000a00| 20 20 2d 2d 20 59 6f 75 | 20 6d 69 67 68 74 20 77 |  -- You| might w|
|00000a10| 61 6e 74 20 74 6f 20 70 | 75 74 20 74 68 69 73 20 |ant to p|ut this |
|00000a20| 70 61 69 72 20 6f 66 20 | 63 61 6c 6c 73 20 72 65 |pair of |calls re|
|00000a30| 73 70 65 63 74 69 76 65 | 6c 79 20 22 6f 6e 20 53 |spective|ly "on S|
|00000a40| 74 61 72 74 4d 6f 76 69 | 65 22 20 0d 20 20 2d 2d |tartMovi|e" .  --|
|00000a50| 20 61 6e 64 20 22 6f 6e | 20 73 74 6f 70 4d 6f 76 | and "on| stopMov|
|00000a60| 69 65 22 20 0d 20 20 63 | 6c 6f 73 65 58 6c 69 62 |ie" .  c|loseXlib|
|00000a70| 20 22 50 72 69 6e 74 58 | 6f 62 6a 22 0d 20 20 0d | "PrintX|obj".  .|
|00000a80| 65 6e 64 20 6d 6f 75 73 | 65 55 70 20 20 00 01 00 |end mous|eUp  ...|
|00000a90| 00 00 00 00 0c 00 0a 00 | 03 00 00 00 09 00 00 00 |........|........|
|00000aa0| 00 00 00                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+